Programming Languages Suite/ProgramD2.iso/Borland/Borland C++ V5.02/OWLSRC.PAK/SWINDOW.CPP

C/C++ Source or Header | 1997-05-06 | 5.1 KB | 224 lines

//----------------------------------------------------------------------------
// ObjectWindows
// Copyright (c) 1991, 1997 by Borland International, All Rights Reserved
//
//$Revision:   10.7  $
//
// Streamable object implementation for TWindow.
//----------------------------------------------------------------------------
#include <owl/pch.h>
#if !defined(OWL_APPLICAT_H)
# include <owl/applicat.h>
#endif
#if !defined(OWL_APPDICT_H)
# include <owl/appdict.h>
#endif
#if !defined(OWL_WINDOW_H)
# include <owl/window.h>
#endif
#if !defined(OWL_SCROLLER_H)
# include <owl/scroller.h>
#endif

OWL_DIAGINFO;

//
// Externs defined in owl.cpp
//
extern WNDPROC CreateInstanceThunk(TWindow*, TThunkProc);

IMPLEMENT_STREAMABLE(TWindow);

const int StreamIsTop      = 1;
const int StreamIsTopChild = 2;

#if !defined(BI_NO_OBJ_STREAMING)

//
//
//
void *
TWindow::Streamer::Read(ipstream& is, uint32 version) const
{
  TWindow* o = GetObject();
  int flags;
  is >> flags;
  if (flags & StreamIsTop) {
    o->ChildList = 0;   // indicate no children connected yet
    return o;           // we only need to read our child list
  }

  o->Handle = 0;
  o->Parent = 0;
  o->SiblingList = 0;
  o->ChildList = 0;
  o->TransferBuffer = 0;
  o->DefaultProc = 0;
  o->HAccel = 0;
  o->ContextPopupMenu = 0;
  o->SetUniqueId();

  is >> o->Module;
  TResId TempId;
  is >> TempId;
  o->Title = TempId;
  is >> o->Flags;

  if (o->IsFlagSet(wfFromResource)) {
    o->DefaultProc = (WNDPROC)::DefWindowProc;
    memset(&o->Attr, 0, sizeof(o->Attr));
  }
  else {
    long  temp;
    is >> o->Attr.Style >> o->Attr.ExStyle >>
          o->Attr.X >> o->Attr.Y >> o->Attr.W >> o->Attr.H >> temp;
    o->Attr.Param = (char far*)temp;

    o->DefaultProc = (WNDPROC)::DefWindowProc;
  }

  is >> o->Attr.Id
     >> o->Attr.Menu
     >> o->Attr.AccelTable;

  is >> o->ZOrder;

  is >> o->Parent;

  if (o->Parent) {
    o->Application = o->Parent->GetApplication();

    // Version 1 and version 3 sibling streaming techniques
    //
    if (version == 1) {
      if (flags & StreamIsTopChild)
        o->Parent->ChildList = o;  // set parent's child pointer to this

      is >> o->ChildList;
      is >> o->SiblingList;
    }
    else {
      o->Parent->AddChild(o);

      static bool readSiblings = true;
      bool saveReadSiblings = readSiblings;
      readSiblings = true;
      is >> o->ChildList;
      readSiblings = saveReadSiblings;

      if (readSiblings) {
        readSiblings = false;

        unsigned numSiblings;
        is >> numSiblings;
        for (unsigned i = 0; i < numSiblings; i++) {
          TWindow* sibling;
          is >> sibling;
        }
        readSiblings = true;
      }
    }
  }
  else {
    o->Application = TYPESAFE_DOWNCAST(o->Module,TApplication);
    if (!o->Application)
      o->Application = ::GetApplicationObject();
  }

  is >> o->Scroller;
  if (o->Scroller)
    o->Scroller->SetWindow(o);

  o->HCursor = 0;
  is >> o->CursorModule >> o->CursorResId;
  o->SetCursor(o->CursorModule, o->CursorResId);
  is >> o->BkgndColor;

  o->Thunk = CreateInstanceThunk(o, StdWndProc);

  return o;
}

//
//
//
void
TWindow::Streamer::Write(opstream& os) const
{
  TWindow* o = GetObject();

  o->AssignZOrder();
  int flags = 0;
  if (o->IsFlagSet(wfStreamTop) || o->IsFlagSet(wfMainWindow))
    flags |= StreamIsTop;
  else if (o->Parent) {
    if ((o->Parent->IsFlagSet(wfStreamTop) || o->Parent->IsFlagSet(wfMainWindow))
      && o->Parent->ChildList == o)
    flags |= StreamIsTopChild;
  }
  os << flags;

  if (flags & StreamIsTop)
    return;

  os << o->Module;
  os << TResId(o->Title);

  uint32 saveFlags = o->Flags;
  if (o->GetHandle())
    saveFlags |= wfAutoCreate;
  os << saveFlags;

  if (!o->IsFlagSet(wfFromResource)) {
    uint32 saveStyle = o->Attr.Style &
                      ~(WS_MINIMIZE | WS_MAXIMIZE | WS_DISABLED | WS_VISIBLE);

    if (o->GetHandle())
      saveStyle |= o->GetWindowLong(GWL_STYLE) &
                   (WS_MINIMIZE | WS_MAXIMIZE | WS_DISABLED | WS_VISIBLE);

    os << saveStyle << o->Attr.ExStyle <<
          o->Attr.X << o->Attr.Y << o->Attr.W << o->Attr.H <<
          long(o->Attr.Param);
  }

  os << o->Attr.Id
     << o->Attr.Menu
     << o->Attr.AccelTable;

  os << o->ZOrder;

  os << o->Parent;

#if 0  // (TWindow::Streamer::ClassVersion() == 1)
  os << o->ChildList;
  os << o->SiblingList;

#else  // version >= 3
  if (o->Parent) {
    static bool writeSiblings = true;
    bool saveWriteSiblings = writeSiblings;
    writeSiblings = true;
    os << o->ChildList;
    writeSiblings = saveWriteSiblings;

    if (writeSiblings) {
      writeSiblings = false;

      os << (o->Parent->NumChildren()-1);
      for (TWindow* sibling = o->SiblingList; sibling != o; sibling = sibling->Next())
        os << sibling;
      writeSiblings = true;
    }
  }

#endif

  os << o->Scroller;

  os << o->CursorModule << o->CursorResId;
  os << o->BkgndColor;
}

#endif  // if !defined(BI_NO_OBJ_STREAMING)